home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / lib / perl5 / 5.8.7 / i686-linux-thread-multi / Config.pm < prev    next >
Text File  |  2006-04-25  |  3KB  |  97 lines
  1. # This file was created by configpm when Perl was built. Any changes
  2. # made to this file will be lost the next time perl is built.
  3.  
  4. package Config;
  5. use strict;
  6. # use warnings; Pulls in Carp
  7. # use vars pulls in Carp
  8. @Config::EXPORT = qw(%Config);
  9. @Config::EXPORT_OK = qw(myconfig config_sh config_vars config_re);
  10.  
  11. # Need to stub all the functions to make code such as print Config::config_sh
  12. # keep working
  13.  
  14. sub myconfig;
  15. sub config_sh;
  16. sub config_vars;
  17. sub config_re;
  18.  
  19. my %Export_Cache = map {($_ => 1)} (@Config::EXPORT, @Config::EXPORT_OK);
  20.  
  21. our %Config;
  22.  
  23. # Define our own import method to avoid pulling in the full Exporter:
  24. sub import {
  25.     my $pkg = shift;
  26.     @_ = @Config::EXPORT unless @_;
  27.  
  28.     my @funcs = grep $_ ne '%Config', @_;
  29.     my $export_Config = @funcs < @_ ? 1 : 0;
  30.  
  31.     no strict 'refs';
  32.     my $callpkg = caller(0);
  33.     foreach my $func (@funcs) {
  34.     die sprintf qq{"%s" is not exported by the %s module\n},
  35.         $func, __PACKAGE__ unless $Export_Cache{$func};
  36.     *{$callpkg.'::'.$func} = \&{$func};
  37.     }
  38.  
  39.     *{"$callpkg\::Config"} = \%Config if $export_Config;
  40.     return;
  41. }
  42.  
  43. die "Perl lib version (v5.8.7) doesn't match executable version ($])"
  44.     unless $^V;
  45.  
  46. $^V eq v5.8.7
  47.     or die "Perl lib version (v5.8.7) doesn't match executable version (" .
  48.     sprintf("v%vd",$^V) . ")";
  49.  
  50.  
  51. sub FETCH {
  52.     my($self, $key) = @_;
  53.  
  54.     # check for cached value (which may be undef so we use exists not defined)
  55.     return $self->{$key} if exists $self->{$key};
  56.  
  57.     return $self->fetch_string($key);
  58. }
  59. sub TIEHASH {
  60.     bless $_[1], $_[0];
  61. }
  62.  
  63. sub DESTROY { }
  64.  
  65. sub AUTOLOAD {
  66.     require 'Config_heavy.pl';
  67.     goto \&launcher;
  68.     die "&Config::AUTOLOAD failed on $Config::AUTOLOAD";
  69. }
  70.  
  71. tie %Config, 'Config', {
  72.     archlibexp => '/usr/lib/perl5/5.8.7/i686-linux-thread-multi',
  73.     archname => 'i686-linux-thread-multi',
  74.     cc => 'i686-pc-linux-gnu-gcc',
  75.     d_readlink => 'define',
  76.     d_symlink => 'define',
  77.     dlsrc => 'dl_dlopen.xs',
  78.     dont_use_nlink => undef,
  79.     exe_ext => '',
  80.     inc_version_list => '5.8.0 5.8.0/i686-linux-thread-multi 5.8.2 5.8.2/i686-linux-thread-multi 5.8.4 5.8.4/i686-linux-thread-multi 5.8.5 5.8.5/i686-linux-thread-multi 5.8.6 5.8.6/i686-linux-thread-multi ',
  81.     intsize => '4',
  82.     ldlibpthname => 'LD_LIBRARY_PATH',
  83.     libpth => '/usr/local/lib /lib /usr/lib',
  84.     osname => 'linux',
  85.     osvers => '2.6.14-gentoo-r4',
  86.     path_sep => ':',
  87.     privlibexp => '/usr/lib/perl5/5.8.7',
  88.     scriptdir => '/usr/bin',
  89.     sitearchexp => '/usr/lib/perl5/site_perl/5.8.7/i686-linux-thread-multi',
  90.     sitelibexp => '/usr/lib/perl5/site_perl/5.8.7',
  91.     useithreads => 'define',
  92.     usevendorprefix => 'define',
  93.     version => '5.8.7',
  94. };
  95.  
  96. 1;
  97.